home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / pcboard / excel3.zip / EXCEL.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-07-11  |  2KB  |  153 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING005
  21.     Declare  Procedure PROC001(String STRING002)
  22.     Declare  Procedure PROC002(String STRING004)
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     Cls
  27.     STRING001 = 0
  28.     DispFile PPEPath() + "\excel1.ans", 2 + 1 + 4
  29.     Newline
  30.     Wait
  31.     :LABEL001
  32.     Cls
  33.     DispFile PPEPath() + "\excel2.ans", 2 + 4 + 1
  34.     Newline
  35.     InputStr "@X0BType 1, 2 or Q to Quit@X0F", STRING001, 11, 1, "12Qq", 64
  36.     Newline
  37.     Select Case (STRING001)
  38.         Case "1"
  39.             PROC001(STRING001)
  40.         Case "2"
  41.             PROC002(STRING001)
  42.         Case "Q", "q"
  43.             Cls
  44.             End
  45.         Case Else
  46.             Newline
  47.             PrintLn "Please type 1, 2 or Q"
  48.             Wait
  49.             Goto LABEL001
  50.     End Select
  51.     End
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     Procedure PROC001(String STRING002)
  56.  
  57.     String   STRING003
  58.  
  59.     :LABEL002
  60.     Cls
  61.     DispFile PPEPath() + "\excel3.ans", 2 + 4 + 1
  62.     InputStr "@X0BWould you like to download this file@X0F", STRING003, 11, 1, "YyNn", 64
  63.     Newline
  64.     Select Case (STRING003)
  65.         Case "Y", "y"
  66.             Download PPEPath() + "excelcus.txt"
  67.         Case "N", "n"
  68.             Cls
  69.             End
  70.         Case Else
  71.             Newline
  72.             PrintLn "Please type Y or N"
  73.             Wait
  74.             Goto LABEL002
  75.     End Select
  76.     Wait
  77.  
  78.     EndProc
  79.  
  80.  
  81. ;------------------------------------------------------------------------------
  82.  
  83.     Procedure PROC002(String STRING004)
  84.  
  85.     String   STRING005
  86.  
  87.     :LABEL003
  88.     Cls
  89.     DispFile PPEPath() + "\excel4.ans", 2 + 4 + 1
  90.     InputStr "@X0BWould you like to download this file@X0F", STRING005, 11, 1, "YyNn", 64
  91.     Newline
  92.     Select Case (STRING005)
  93.         Case "Y", "y"
  94.             Download PPEPath() + "excelrep.txt"
  95.         Case "N", "n"
  96.             Cls
  97.             End
  98.         Case Else
  99.             Newline
  100.             PrintLn "Please type Y or N"
  101.             Wait
  102.             Goto LABEL003
  103.     End Select
  104.     Wait
  105.  
  106.     EndProc
  107.  
  108.  
  109. ;------------------------------------------------------------------------------
  110. ;
  111. ; Usage report (before postprocessing)
  112. ;
  113. ; ■ Statements used :
  114. ;
  115. ;    4       End
  116. ;    7       Cls
  117. ;    6       Wait
  118. ;    17      Goto 
  119. ;    1       Let 
  120. ;    3       PrintLn 
  121. ;    7       If 
  122. ;    4       DispFile 
  123. ;    3       InputStr 
  124. ;    8       Newline
  125. ;    2       Download 
  126. ;    2       EndProc
  127. ;
  128. ;
  129. ; ■ Functions used :
  130. ;
  131. ;    14      +
  132. ;    12      ==
  133. ;    7       !
  134. ;    5       ||
  135. ;    6       PPEPath()
  136. ;
  137. ;------------------------------------------------------------------------------
  138. ;
  139. ; Analysis flags : No flag
  140. ;
  141. ;------------------------------------------------------------------------------
  142. ;
  143. ; Postprocessing report
  144. ;
  145. ;    0       For/Next
  146. ;    0       While/EndWhile
  147. ;    0       If/Then or If/Then/Else
  148. ;    3       Select Case
  149. ;
  150. ;------------------------------------------------------------------------------
  151. ;                 AEGiS Corp - Break the routines, code against the machines!
  152. ;------------------------------------------------------------------------------
  153.